home *** CD-ROM | disk | FTP | other *** search
/ Nebula 1 / Nebula One.iso / Educational / PrimeSpiral / Source / SpiralOps.psw < prev    next >
Encoding:
Text File  |  1995-06-12  |  516 b   |  25 lines
  1. /* File:    SpiralOps.psw - Random PostScript routines for 'PrimeSpiral'
  2.  *
  3.  * By:        Christopher Lane
  4.  *        Symbolic Systems Resources Group
  5.  *        Knowledge Systems Laboratory
  6.  *        Stanford University
  7.  *
  8.  * Date:    9 March 1990
  9.  *
  10.  * Copyright:    1990 by The Leland Stanford Junior University.  This program
  11.  *        may be distributed without restriction for non-commercial use.
  12.  */
  13.  
  14. defineps PSdrawAt (float x, y)
  15.     x y 0 0 rectfill
  16. endps
  17.  
  18. defineps PSclearToGray(float gray)
  19.     currentgray
  20.     gray setgray
  21.     clippath
  22.     fill
  23.     setgray
  24. endps
  25.